F(X) JOURNAL 


Here is the second issue of the F(x) journal. As you will notice, 
we have phased out the question and answer section due to a lack of 
reader questions. We are also sorry for the late delivery of this 
issue. Again we are running into difficulties. 

In this month's issue we have : 

Trig. Subroutines 
6800 microprocessor : Part 2 
Conclusion 


BUGS !! (sorry folks but were not perfect) 


There was a bug in last month's program. 
Line 310 should read : 
310 K$ = KEY$(2) : IF K$ = "GOTO 450 
We are sorry for any problems this may have caused. 


6800 - Your Microprocessor - Part 2 


As was mentioned last month, accumulator A & B are used to perform 
simple arithmetic and data manipulation. Simple arithmetic means purely 
addition and subtraction. Since A & B can only store numbers from 0 to 
255, in order to do addition or subtraction of larger numbers, 
individual bytes must be added or subtracted one at a time. When the 
result is greater than 255, the carry bit in the condition codes 
register will donate this. The carry bit is then figured in with the 
addition of the next higher-order byte. 

In order to perform multiplication and division, the bit-shift 
instructions are used. In short, A & B are used as temporary storage 
places for data which must be manipulated or moved. 

As was mentioned, the condition codes register is used to show the 
Status of system after certain events. The ccr controls the following 
flag bits: V-overflow, C-carry, I-interrupt enable, S-sign, Z-zero, 

H- half-carry. The main bits are L,V,Z, and S. Those bits are 
essential to machine language branch instructions. This will be covered 
in a later article on machine language. 

The remaining registers, X, SP, and PC are used for memory 
addressing. They can point at a memory location which contains data for 
Aor B. This is most often done with the X register for an addition, 
this is called indexed addressing. There will be more on addressing 
modes in later articles. The stack pointer points at certain memory 
which is called the stack. The stack stores such things as data and 
memory addresses for later recall. When a subrotuine is called, the 
current address of the PC, which points at where the 6800 is currently 
executing instruction, is saved on the stack, the stack pointer is 
adjusted, and the subrotuine address is loaded into PC. When a return 
instruction is encountered, the old PC address is loaded back into the 
PC and the microprocessor continues. 

The use of the registers and accumulators will = discussed next 
month in a multi-part series on machine language. 


Last minute thoughts 


1. We currently have the following programs available: 

A. BIORHYTHM - Calculate critical days !! ($4.95) 

B. TEXT STORAGE & RETREIVAL SYSTEM - File management system which 

is written in machine language. ($11.95) 

C. VOICE SYNTHESIZER - Software voice synthesizer. ($9.95) 

D. GRAPHIX PACKAGE - 3 utilities for high-res enthusiasts. ($7.95) 

E. MATH PROCESSOR - Performs many needed math function plus 

polynomial graphing. ($6.95) 
F. GAMES PACK — 4 intriguing games including Lord Logic Locks. 
($8.95) 
© 

More programs will be available as soon as the documentation is 
complete. 


If you would like to order an of the above programs or would like more 
information, please write us. 


F(x) Software Co. 
4246 Elisabeth Ave. 
Holland, MI 49423 


2. Next Month !!! 


A. More programs !!! 
B. Article on machine language 
C. Much, Much, More !! 


UOMPUTER PROGRAM 


First we will give you the index and then we will give you the 
Subrotuines. We advise that you input all of the parts of the 
subrotuine and use it as a block. This is because some of the 
Trig. functions use others in the subrotuine. 


CALL ADDRESS FUNCTION INPUT OUTPUT VARIABLES USED 
9020 Square Root X Y W, Z 
9140 Logarithms xX L(Nat. Log) 1-0 V,2W 
X(Com. Log) 
9270 Sine Xia deacecss ne Z 
9440 Cosine X(in degrees) Y W, Z, & 


Sine Rotuine 


9510 Tangent X(in degrees) ScoN T,oV5:W; 2k 
Sine & Cos. 
Rotuine 


9000 
9010 
9020 
9060 
9070 
9080 
9090 Y 
9100 
9110 
9120 
9130 
9140 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9320 
9330 
9340 
9350 


9360 
9370 
9380 
9390 
9400 
9410 


9420 


9430 
9440 


9490 W = 


9500 
9510 
9560 
9570 
9580 


REM * FUNCTIONS * 

REM 

REM # SQUARE ROOT # 

IF X=0 THEN Y=0 : RETURN 

IF X> 0 THEN 9090 

PRINT " ERROR — ROOT OF A NEGATIVE NUMBER 2" : STOP 
=X * 35375 

W = (X/Y - Y) * .5 


IF W = 0 THEN RETURN 

IF W = Z THEN RETURN 

Y= Y+Ws: Z=W : GOTO 9100 

REM # LOGARITHMS # 

W= 0 IF X < 0 THEN PRINT " ERROR ~ LOG UNDEFINED AT "; X : STOP 
i= 12 Uw 2 20 eS 

IF X >= T THEN X = V4X: W=W+T: GOTO 9220 

IF X < V THEN X = U*X : W=W - T : GOTO 9230 

X = (X -7071)/(X + .7071) : L= xxx 

L= CCC. -5989 * L + .9615) * L + 2. 8854) * X +W- .5) * .6931 

X= L * .4343 : RETURN 

REM # SINE # 

IF X = 0 THEN Y = 0 : RETURN 

“@ ABSCX-) / X 33X87 He xX 

IF X > 360 THEN X = X / 360: Xx = (X - INT(X)) * 360 

IF X> 90 THEN X=xX/90: Y= INT( Y } : X¥ = (X42 ) * 90 : ON 
Y GOTO 9380, 9390, 9400 , 

Xem YY: 75 575.2958 © 1F ABS( X ) -0002 THEN Y = 0 : RETURN 

GOTO 9410 

X = 90 - X : GOTO 9360 

X = -X : GOTO 9360 

X = X - 90 : GOT 9360 

Yeu zk Ee XT OF KR xe XS X/120-xX* X*xX*xX* Xe xX 
* X / 5040 

Vere FS FRE AX RK YX aw ys X / 362880 : IF Z = -1 THEN 
Y=-yY 

RETURN 

REM #- COSINE # 


ABS( X ) / X : X = X¥ +90 : GOSUB 9320 : IFZ=-11IFW=1 
THEN Y = -Y 

RETURN 

REM # TANGENT # 

T = X : GOSUB 9490 

V ="Y.: X = T: GGSUB 9320: Y=yY/v 

RETURN 


